home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
vdl020d.zip
/
VPOINT.DOC
< prev
next >
Wrap
Text File
|
1993-04-14
|
3KB
|
118 lines
(*
==========================================================================
Visionix Pointer Device Unit (VCOLOR)
Copyright 1991,1992 Visionix
ALL RIGHTS RESERVED
--------------------------------------------------------------------------
Revision history in reverse chronological order:
Initials Date Comment
-------- -------- ------------------------------------------------------
jrt 11/21/92 Sync with beta 0.08
jrt 09/01/92 First logged revision.
--------------------------------------------------------------------------
*)
{ VMou/VPoint Copyright 1991,1992 Visionix ALL RIGHTS RESERVED }
Unit VMou;
Const
mbLEFT = 1;
mbCENTER = 2;
mbRIGHT = 4;
mbALL = 1+2+4;
Const
mbLEFT = 1;
mbCENTER = 2;
mbRIGHT = 4;
mbALL = 1+2+4;
Type
TMouseCaps = RECORD
NumMice : BYTE;
END;
Procedure VMouseGetCaps( Caps : PMouseCaps );
Function VMouseInstalled : BOOLEAN;
Procedure VMouseInit( MouType : BYTE;
Var Error : WORD;
Procedure VMousePointerOn;
Procedure VMousePointerOff;
Procedure VMousePointerSet( PointerID : BYTE );
Procedure VMouseRead( Var Button : BYTE;
Var X : WORD;
Var Y : WORD );
Procedure VMouseReadButtons : BYTE;
Procedure VMouseReadX : WORD;
Procedure VMouseReadY : WORD;
Procedure VMouseWaitButtonRelease( Buttons : BYTE );
Procedure VMouseWaitButtonPress( Buttons : BYTE );
{-------------}
Procedure VMouseProcNew( BPressed : BYTE;
BReleased : BYTE;
X1 : WORD;
Y1 : WORD;
X2 : WORD;
Y2 : WORD;
Proc : POINTER;
Id : POINTER;
Name : TProcName;
Var Err : WORD );
Procedure VMouseProcOn( Name : TProcName );
Procedure VMouseProcOff( Name : TProcName );
Procedure VMouseProcDispose( Name : TProcName );
Procedure VMouseSubmitButtonKey( Button : BYTE;
Key1 : CHAR;
Key2 : CHAR );